home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / merlin / rexx / list.rexx < prev    next >
OS/2 REXX Batch file  |  1999-07-12  |  2KB  |  101 lines
  1. /* RUN "rx MCP:rexx/EuroToGuilder.rexx %n"   */
  2.  
  3. Arg node_number ID                     /* node we were run from, Object ID */
  4. Host = 'MCPREXX.'node_number            /* the Trion MCP Arexx port */
  5. Options results
  6. Address value host
  7. options failat 15
  8.  
  9.  
  10. /* say "node: "node_number */
  11. if node_number = "" then do
  12.    say "error .. rexx script not started with %n on command line"
  13.    exit 1
  14. end
  15.  
  16. if ID = "" then do
  17.    say "error .. rexx script not started with %i or ID on command line"
  18.    exit 2
  19. end
  20.  
  21.  
  22. if ID = 39 then do        /* Test read list */
  23.    GetFirstItem 10
  24.    str = result
  25.    say "val" rc
  26.    say "read" str
  27.    AddToList "20" str "test"
  28.  
  29.  
  30.    GetNextItem 10
  31.    str = result
  32.    say "val" rc
  33.    say "read" str
  34.    AddToList "20" str "test"
  35. end
  36.  
  37.  
  38. if ID = 40 then do        /* Do button */
  39.  
  40.    /* copy selected item to other list */
  41.  
  42.    end = 0
  43.    GetFirstItem 10
  44.    end = rc
  45.    str = result
  46.  
  47.    do while end = 0
  48.       AddToList "20" str "test"
  49.  
  50.       GetNextItem 10
  51.       end = rc
  52.       str = result
  53.    end 
  54. end
  55.  
  56.  
  57. if ID = 41 then do        /* Empty button */
  58.    AddToList "10 line0 line0"
  59.    AddToList "10 line1 line1"
  60.    AddToList "10 line2 line2"
  61.    AddToList "10 line3 line3"
  62.    AddToList "10 line4 line4"
  63.    AddToList "10 line5 line5"
  64.    AddToList "10 line6 line6"
  65.    AddToList "10 line7 line7"
  66.    AddToList "10 line8 line8"
  67.    AddToList "10 line9 line9"
  68. end
  69.  
  70. if ID = 42 then do        /* Empty button */
  71.    EmptyList 10
  72. end
  73.  
  74. if ID = 43 then do        /* Clear button */
  75.    ClearList 10
  76. end
  77.  
  78.  
  79. if ID = 11 then do        /* left string gadget */
  80.    ReadString "ID 11"
  81.    str = result
  82.    AddToList "10" str str
  83. end
  84.  
  85.  
  86. if ID = 21 then do        /* Right string gadget */
  87.    ReadString "ID 21"
  88.    str = result
  89.    AddToList "20" str str
  90. end
  91.  
  92.  
  93.  
  94. exit 0                         /* einde programma */
  95.  
  96.  
  97.  
  98. test:          /*  een functie: 'call test' */
  99. return 0
  100.  
  101.